﻿
Public Class CConsulta

    Private _intId             As Integer
    Private _strNombreConsulta As String
    Private _strRutaArchivo    As String
    Private _dtUltimaFecha     As Date
    Private _intConsecutivo    As Integer


    Public Property Id As Integer
        Get
            Id = Me._intId
        End Get
        Set(ByVal value As Integer)
            Me._intId = value
        End Set
    End Property

    Public Property NombreConsulta As String
        Get
            NombreConsulta = Me._strNombreConsulta
        End Get
        Set(ByVal value As String)
            Me._strNombreConsulta = value
        End Set
    End Property

    Public Property RutaArchivo As String
        Get
            RutaArchivo = Me._strRutaArchivo
        End Get
        Set(ByVal value As String)
            Me._strRutaArchivo = value
        End Set
    End Property

    Public Property UltimaFecha As Date
        Get
            UltimaFecha = Me._dtUltimaFecha
        End Get
        Set(ByVal value As Date)
            Me._dtUltimaFecha = value
        End Set
    End Property

    Public Property Consecutivo As Integer
        Get
            Consecutivo = Me._intConsecutivo
        End Get
        Set(ByVal value As Integer)
            Me._intConsecutivo = value
        End Set
    End Property

    Public Overrides Function ToString() As String
        Return NombreConsulta
    End Function

End Class
